
FOR EACH ptp_det WHERE ptp__chr01 = "c" NO-LOCK,
    EACH pt_mstr WHERE pt_part = ptp_part AND pt_status = "AC" NO-LOCK ,
    EACH sct_det WHERE ptp_part = sct_part AND ptp_site = sct_site AND sct_cst_tot = 0 AND (sct_sim = "Standard" )NO-LOCK:
    
    DISP sct_part sct_sim sct_site ptp__chr01 pt_status pt_added sct_cst_tot pt_desc1 WITH STREAM-IO WIDTH 320 .

END.
